home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr1.arc / INIT.SPM < prev    next >
Encoding:
Text File  |  1979-12-31  |  3.3 KB  |  128 lines
  1. * DATE 08/08/84  21:47
  2. * initialization program
  3. ERAS
  4. TEXT
  5.   ***************************************************************************  
  6.    This is a first time initialization program. It sets the defaults for all  
  7.    operations. However, you can change any of the defaults on the building or  
  8.    accounting maintenance menus.                                               
  9.   *************************************************************************** 
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26. ENDT
  27. IF .NOT. file ("MANAGE.DAT")
  28.  STOR '                                   ' TO coname
  29.  STOR 'A' TO dr
  30.  STOR 'Y' TO bells
  31.  STOR 'I' TO bright
  32.  STOR 'Y' TO escap
  33.  STOR 'N' TO I
  34.  STOR 'N' TO C
  35.  STOR 'N' TO pass
  36.  STOR '        ' TO passp
  37. ELSE
  38.  REST from manage.dat
  39. ENDI .NOT. file
  40. @ 06,00 SAY "Please state company name "
  41. @ 06,30 GET coname PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  42. READ
  43. DO WHIL $(coname,1,1) = ' '
  44.  @ 06,30 GET coname PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  45.  READ
  46. ENDD WHILE $(coname)
  47. STOR TRIM(coname) TO coname
  48. @ 08,00 SAY "On what drive will you store the data files ?"
  49. @ 08,50 GET dr PICTURE '!'
  50. READ
  51. @ 09,00 SAY'Do you wish to use signal beep ? '
  52. @ 09,38 GET bells PICTURE '!'
  53. READ
  54. DO WHIL @(bells,'YN')=0
  55.  @ 09,38 GET bells PICTURE '!'
  56.  READ
  57. ENDD WHILE @(bells)
  58. @ 11,00 SAY "You can have bright and dim intensity at <A>ll points in the program"
  59. @ 12,00 SAY "or just on the <I>nput screens. Answer 'A' or 'I' "
  60. @ 12,50 GET bright PICTURE '!'
  61. READ
  62. DO WHIL @(bright,'AI')=0
  63.  @ 12,50 GET bright PICTURE '!'
  64.  READ
  65. ENDD WHILE @(bright)
  66. @ 14,00 SAY "If you leave the escape key on it is possible to break out of the program"
  67. @ 15,00 SAY "at any time. Some people prefer to not allow this. Shall we leave it on ?"
  68. @ 15,75 GET escap PICTURE '!'
  69. READ
  70. DO WHIL @(escap,'YN')=0
  71.  @ 15,75 GET escap PICTURE '!'
  72.  READ
  73. ENDD WHILE @(escap)
  74. @ 17,00 SAY "Are you using an IBM PC or compatable with a clock board ?"
  75. @ 17,70 GET I picture '!'
  76. READ
  77. @ 18,00 SAY "Are you using a Compupro Systems Support Board with clock ?"
  78. @ 18,70 GET C PICTURE '!'
  79. READ
  80. @ 20,00 SAY "Do you want password protection ? "
  81. @ 20,45 GET pass PICTURE '!'
  82. READ
  83. DO WHIL @(pass,'YN')=0
  84.  @ 20,45 GET pass PICTURE '!'
  85.  READ
  86. ENDD WHILE @(pass)
  87. IF pass = 'Y'
  88.  @ 21,00 SAY "What is the password ?"
  89.  @ 21,45 GET passp
  90.  READ
  91.  DO WHIL passp = ' '
  92.   @ 21,45 GET passp
  93.   READ
  94.  ENDD WHILE passp
  95. ENDI pass = 'Y'
  96. STOR 'Y' TO goagain
  97. @ 22,30 SAY "IS THE ABOVE CORRECT ? "
  98. @ 22,55 GET goagain PICTURE '!'
  99. READ
  100. IF goagain = 'N'
  101.  @ 22,00
  102.  @ 06,30 GET coname PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  103.  @ 08,50 GET dr PICTURE '!'
  104.  @ 09,38 GET bells PICTURE '!'
  105.  @ 12,50 GET bright PICTURE '!'
  106.  @ 15,75 GET escap PICTURE '!'
  107.  @ 17,70 GET I picture '!'
  108.  @ 18,70 GET C PICTURE '!'
  109.  @ 20,45 GET pass PICTURE '!'
  110.  READ
  111.  IF pass = 'Y'
  112.   @ 21,00 SAY "What is the password ?"
  113.   @ 21,45 GET passp
  114.   READ
  115.   DO WHIL passp = ' '
  116.    @ 21,45 GET passp
  117.    READ
  118.   ENDD WHILE passp
  119.  ENDI pass = 'Y'
  120.  READ
  121. ENDI goagain
  122. RELE goagain
  123. CLEA GETS
  124. SAVE TO manage.dat
  125. RELE bright, dr, escap, bells, pass, passp, I, C
  126. SAVE TO coname
  127. RETU
  128.